home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00235_Script_GESTION_PISTES_DIODES < prev    next >
Text File  |  2004-12-05  |  1KB  |  45 lines
  1. global gL_Zap
  2. property p_cettePiste, p_Nodepiste,p_nom_Acteur,p_noDiode
  3. ----------------------------------
  4. on beginsprite me
  5.   p_Nodepiste = me.spriteNum
  6.   p_cettePiste = sprite(p_Nodepiste)
  7.   p_nom_Acteur = p_cettePiste.member.name
  8.   if p_nom_Acteur contains "01" then gL_Zap[15] = p_Nodepiste-- le n░ de la
  9.   --piste de la premiΦre diode
  10.   p_noDiode =  p_Nodepiste -gL_Zap[15] + 1 
  11. end
  12. ----------------------------------- 
  13. on mouseEnter
  14.   if the pauseState then exit
  15.   if p_noDiode > localparam("COORD",4) then exit
  16.   if p_noDiode = localparam("COORD",6) then exit
  17.   if  p_cettePiste.blend < 100 then exit
  18.   cursor 280
  19. end
  20. ------------------------
  21. on mouseLeave
  22.   if the pauseState then exit 
  23.   if p_noDiode > localparam("COORD",4) then exit
  24.   if p_noDiode = localparam("COORD",6) then exit
  25.   if  p_cettePiste.blend < 100 then exit
  26.   cursor -1
  27. end
  28. --------------------
  29. on mouseUp
  30.   if the pauseState then exit
  31.   if p_noDiode > localparam("COORD",4) then exit
  32.   if p_noDiode = localparam("COORD",6) then exit
  33.   if  p_cettePiste.blend < 100 then exit
  34.   cursor -1
  35.   tell the stage
  36.     case(zRub()) of
  37.       "CPLUSCLAIR":
  38.         goSameRub(0,"LABEL_"&gimme2digits(p_noDiode-1))
  39.       otherwise:
  40.         goSameRub(p_noDiode-1)
  41.     end case
  42.   end tell
  43. end tell
  44. end
  45. -----------------